BBS in a Box 15/BBS in a box XV-1.iso/Files/Educ/Teacher/Link2 Simulnet 1.0demo.sit/LINK2©-Demo/LINK2 Demo/LinkBBS/mailbox/mailbox/background_4067.xml

Extensible Markup Language | 1993-11-29 | 34.0 KB | 767 lines

<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE background PUBLIC "-//Apple, Inc.//DTD background V 2.0//EN" "" >
<background>
    <id>4067</id>
    <filler1>0</filler1>
    <bitmap>BMAP_2421.pbm</bitmap>
    <cantDelete> <true /> </cantDelete>
    <showPict> <true /> </showPict>
    <dontSearch> <false /> </dontSearch>
    <link rel="stylesheet" type="text/css" href="stylesheet_9701.css" />
    <part>
        <id>6</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>226</left>
            <top>294</top>
            <right>253</right>
            <bottom>319</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <false /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>1013</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Next message</name>
        <script>All scripts in this object are Copyright 1993, Venanzio Jelenic,  all rights reserved.

on deletebutton
choose browse tool
end deletebutton

on mouseup
GetNextMsg
end mouseup


</script>
    </part>
    <part>
        <id>5</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>192</left>
            <top>294</top>
            <right>219</right>
            <bottom>319</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <false /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>1014</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Preevious Message</name>
        <script>All scripts in this object are Copyright 1993, Venanzio Jelenic,  all rights reserved.

on deletebutton
choose browse tool
end deletebutton

on mouseup
getprevMsg
end mouseup

</script>
    </part>
    <part>
        <id>9</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>54</left>
            <top>71</top>
            <right>249</right>
            <bottom>86</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <true /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>New York</font>
        <textSize>10</textSize>
        <textStyle>plain</textStyle>
        <textHeight>13</textHeight>
        <name>Date</name>
        <script>All scripts in this object are Copyright 1993, Venanzio Jelenic,  all rights reserved.
All scripts in this object are © 1993, Venanzio Jelenic,  all rights reserved.
on deletefield
choose browse tool
end deletefield
x
on mouseup
convert me to secs
convert me to long date
end mouseup

</script>
    </part>
    <part>
        <id>11</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>285</left>
            <top>68</top>
            <right>485</right>
            <bottom>85</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <true /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>New York</font>
        <textSize>11</textSize>
        <textStyle>bold</textStyle>
        <textHeight>14</textHeight>
        <name>From</name>
        <script>All scripts in this object are Copyright 1993, Venanzio Jelenic,  all rights reserved.
All scripts in this object are © 1993, Venanzio Jelenic,  all rights reserved.
on deletefield
choose browse tool
end deletefield
x
on mouseenter
global change
if change then set locktext of me to false
else set locktext of me to true
end mouseenter
</script>
    </part>
    <part>
        <id>13</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>54</left>
            <top>87</top>
            <right>307</right>
            <bottom>103</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <true /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Geneva</font>
        <textSize>12</textSize>
        <textStyle>bold</textStyle>
        <textHeight>16</textHeight>
        <name>To</name>
        <script>All scripts in this object are Copyright 1993, Venanzio Jelenic,  all rights reserved.
on deletefield
choose browse tool
end deletefield

on mouseenter
global change
if change then set locktext of me to false
else set locktext of me to true
end mouseenter
</script>
    </part>
    <part>
        <id>12</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>445</left>
            <top>86</top>
            <right>465</right>
            <bottom>104</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <true /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Geneva</font>
        <textSize>12</textSize>
        <textStyle>bold</textStyle>
        <textHeight>16</textHeight>
        <name>Private (yes/no)</name>
        <script>All scripts in this object are Copyright 1993, Venanzio Jelenic,  all rights reserved.
All scripts in this object are © 1993, Venanzio Jelenic,  all rights reserved.
on deletefield
choose browse tool
end deletefield

</script>
    </part>
    <part>
        <id>19</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>259</left>
            <top>295</top>
            <right>286</right>
            <bottom>320</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <false /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>26865</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Last</name>
        <script>All scripts in this object are Copyright 1993, Venanzio Jelenic,  all rights reserved.
on deletebutton
choose browse tool
end deletebutton

on mouseup
GoLastNextMsgs
end mouseup













</script>
    </part>
    <part>
        <id>17</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>309</left>
            <top>295</top>
            <right>391</right>
            <bottom>317</bottom>
        </rect>
        <style>roundrect</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Continuous</name>
        <script>All scripts in this object are Copyright 1993, Venanzio Jelenic,  all rights reserved.
on deletebutton
choose browse tool

end deletebutton

on mouseup
get findnext(empty)
repeat until the mouseclick
if it is empty then
get findNext(name of card "master template")
set lockscreen to false
visual effect wipe left slowly
if it ≠ empty then
go to it
wait 20
end if
else
set lockscreen to false
go to it
wait 20
get findnext (it)
end if
end repeat
opencard
put empty into bg field "msg#"
end mouseup
</script>
    </part>
    <part>
        <id>14</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>72</left>
            <top>104</top>
            <right>473</right>
            <bottom>135</bottom>
        </rect>
        <style>scrolling</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <true /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Geneva</font>
        <textSize>11</textSize>
        <textStyle>plain</textStyle>
        <textHeight>14</textHeight>
        <name>Subject</name>
        <script>All scripts in this object are Copyright 1993, Venanzio Jelenic,  all rights reserved.
All scripts in this object are © 1993, Venanzio Jelenic,  all rights reserved.
on deletefield
choose browse tool
end deletefield

on mouseup
if the shiftkey is "down" then
Hypertext ALine
else
Hypertext Aword
end if
end mouseup

on mouseenter
global change
if not change then
set the locktext of me to true
else set locktext of me to false
end mouseenter</script>
    </part>
    <part>
        <id>16</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>56</left>
            <top>295</top>
            <right>146</right>
            <bottom>320</bottom>
        </rect>
        <style>roundrect</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Reply</name>
        <script>All scripts in this object are Copyright 1993, Venanzio Jelenic,  all rights reserved.
on deletebutton
choose browse tool

end deletebutton

on mouseup
put field "from" into from
put field "subject" into subject
push card
visual effect iris open fast
go to card "New message:"
put from into card field "to (name or 'all')"
put subject into cd  field "subject"
end mouseup
</script>
    </part>
    <part>
        <id>23</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>394</left>
            <top>295</top>
            <right>454</right>
            <bottom>317</bottom>
        </rect>
        <style>roundrect</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Kill</name>
        <script>All scripts in this object are Copyright 1993, Venanzio Jelenic,  all rights reserved.
All scripts in this object are © 1993, Venanzio Jelenic,  all rights reserved.
on deletebutton
choose browse tool
end deletebutton

on mouseup
global  userOpt,tempusername
set lockScreen to true
if itemsmatch(tempusername, field "to")  or ¬
itemsmatch(tempusername, field "from")  or "killany" is in UserOpt ¬
then
unlock screen
answer "DELETE this message, are you sure?" with "yes" or "NO"
lock screen
if it is "yes" then
disablekb
get findNext(empty)
if it is empty then get findPrev(empty)
set lockMessages to true
togglemenu off
doMenu delete card
set lockScreen to false
set lockMessages to false
visual effect dissolve
if it is not empty then go to it
else go to first card
end if
else Answer "Can't delete other people's messages..."
end mouseup
</script>
    </part>
    <part>
        <id>7</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>457</left>
            <top>294</top>
            <right>487</right>
            <bottom>322</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>1012</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Quit</name>
        <script>All scripts in this object are Copyright 1993, Venanzio Jelenic,  all rights reserved.
on deletebutton
choose browse tool
end deletebutton

on mouseup
if the hilite of bg button "xnotes" then save
visual effect iris close fast
go to card id 4120
end mouseup
</script>
    </part>
    <part>
        <id>15</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>24</left>
            <top>146</top>
            <right>472</right>
            <bottom>283</bottom>
        </rect>
        <style>scrolling</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <true /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Geneva</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <textHeight>16</textHeight>
        <name>Message</name>
        <script>All scripts in this object are Copyright 1993, Venanzio Jelenic,  all rights reserved.
on deletefield
choose browse tool
end deletefield


on mouseup
if the shiftkey is "down" then
Hypertext Aline
else

hypertext Aword
end if
end mouseup

on mouseenter
global change
if not change then
set the locktext of me to true
else set locktext of me to false
end mouseenter</script>
    </part>
    <part>
        <id>31</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>159</left>
            <top>294</top>
            <right>186</right>
            <bottom>319</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <false /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>30557</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>First msg</name>
        <script>All scripts in this object are Copyright 1993, Venanzio Jelenic,  all rights reserved.
on deletebutton
choose browse tool
end deletebutton

on mouseup
GoFirstPrevMsgs
end mouseup

</script>
    </part>
    <part>
        <id>32</id>
        <type>field</type>
        <visible> <false /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>153</left>
            <top>277</top>
            <right>303</right>
            <bottom>298</bottom>
        </rect>
        <style>shadow</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Geneva</font>
        <textSize>14</textSize>
        <textStyle>underline</textStyle>
        <textStyle>bold</textStyle>
        <textHeight>18</textHeight>
        <name>msg#</name>
        <script>All scripts in this object are Copyright 1993, Venanzio Jelenic,  all rights reserved.

on deletefield
choose browse tool
end deletefield

on mouseup
get me
say it
end mouseup</script>
    </part>
    <part>
        <id>36</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>18</left>
            <top>13</top>
            <right>56</right>
            <bottom>52</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <false /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>156</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Dictionary</name>
        <script>All scripts in this object are Copyright 1993, Venanzio Jelenic,  all rights reserved.

on deletebutton
choose browse tool
end deletebutton


on mousestilldown
CheckFieldAgainstDictionary
exit to hypercard
end mousestilldown



on mouseUp
Usedictionary
unlock screen with iris close
end mouseUp

--•• to use with Dictionary button
on UseDictionary
global topof,leftof,iconnum,presentdictionary,fastreturn
if selection <> empty then
Xcursor
checkselection
else
disableKB
put 1 into iconnum
locatedialog
ShowDialog 1,5004,"",False,topof,leftof
if the result is 1 then
--if the cantmodify of this card then exit usedictionary
answer "select some words to check, then click here."

else if the result is 2  then
if presentdictionary is empty then LoadDictionary
Pushme
togglemenu off
domenu "copy card"
go stack "dictionary maker"
type "v" with commandkey,shiftkey
click at 256,171
drag from the clickloc to the loc of cd button "cardPict"
choose browse tool
else if the result is 3 then
end if
end if
end Usedictionary

on CheckFieldAgainstDictionary
global thefield,newlocof
disableKB
Xcursor
put empty into thefield
put the loc of the target  into oldloc
if selection ≠ empty then
Usedictionary
else
dragon the target
put loc of target into newlocof
set loc of target to oldloc
getfieldname
if  thefield <> empty then
Select text of bg field thefield
checkselection
else
Usedictionary
end if
end if
EXIT TO HYPERCARD
end CheckFieldAgainstDictionary



on CheckSelection
global presentdictionary,extraletters,topof,leftof,iconnum,Ignoreit
if presentdictionary = empty then Loaddictionary
put selection into wordtocheck
if wordtocheck = empty then exit checkselection
put selectedchunk() into thechunk
global ProgressPointer,RemoveProgress
put 1 into i
Progress 1, ""
put (100/the number of words in wordtocheck) into progression
repeat with n= 1 to the number of words in wordtocheck
put i + progression into i
Progress 2,round(i)
if number of chars in word n of wordtocheck < 2 then next repeat
put strip(Extraletters, Word n of Wordtocheck) into thestring
if  IgnoreIt contains thestring or thestring = empty then next repeat
put return & thestring & return into thestring
put offset(thestring,presentdictionary)¬
into notfound
if notfound ≠ 0 then
else
put Strip(extraletters, word n of wordtocheck) into CheckingWord
put  CheckingWord into question
put 4 into iconnum
locatedialog
showdialog 1, 5009,question,false,topof,leftof
put the result into theresult
if theresult =1 then --cancel, stops here
exit repeat
else if theresult = 2  then --wrong
enableKB
ask "type the correct word for:"&&space && CheckingWord
put it into CheckingWord
disableKB
if CheckingWord = empty then
else
put CheckingWord into word n of  wordtocheck
repeat with z = 1 to  the number of words in CheckingWord
put offset ¬
(return&word z of CheckingWord &return, presentdictionary) ¬
into notfound
if notfound ≠ 0 then
else
put  word z of CheckingWord  into thestring
put Strip(extraletters ,thestring) into thestring
put  return & thestring & return before presentdictionary
end if
end repeat
end if
else if theresult = 3  then --Ignore
put  return & thestring& return before Ignoreit
else if theresult = 4  then --New
put  word n of wordtocheck  into thestring
put Strip(extraletters ,thestring) into thestring
put  return& thestring &return before presentdictionary
else if the result = 5 then --SKIP
next repeat
end if
end if
end repeat
Progress 3
select thechunk
if not the cantmodify of this card then
if not the locktext of selectedfield() then
put wordtocheck into  the selection
end if
end if
WriteToDictionary
end CheckSelection --•••



on helpinfo
hiliteme
ShowHelp (short name of me)
hiliteme
end helpinfo
</script>
    </part>
    <part>
        <id>41</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>129</left>
            <top>15</top>
            <right>168</right>
            <bottom>54</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <false /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>21209</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Scratchpad</name>
        <script>All scripts in this object are Copyright 1993, Venanzio Jelenic,  all rights reserved.
--••Scratchpad button handler

on deletebutton
choose browse tool
end deletebutton

on MouseUP
busy
DISABLEKB
TextScratchPad
end MouseUP

on helpinfo
hiliteme
ShowHelp (short name of me)
hiliteme
end helpinfo

</script>
    </part>
    <part>
        <id>43</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>74</left>
            <top>15</top>
            <right>111</right>
            <bottom>53</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <false /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>1007</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Print</name>
        <script>

All scripts in this object are Copyright 1993, Venanzio Jelenic,  all rights reserved.

on deletebutton
choose browse tool
end deletebutton

on mousestilldown
disableKB
put the loc of me into oldloc
dragon the target
set the loc of me to oldloc
answer "do you wish to print this whole message" with "yes" or "No"
if it is "yes" then
put " From: "& bg field "From"&return into A
put "To: "& bg field "To"& return into C
put "Date: "& bg field "Date" & return into D
put "Subject: " & bg field "Subject" & return into E
put "Message: " &  bg field "message" into F
print (A&B&C&D&E&F)
end if
end mousestilldown


on helpinfo
fliphelp "Click here to print the entire message. I will "¬
&" set it up for you."
end helpinfo</script>
    </part>
    <part>
        <id>44</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>407</left>
            <top>18</top>
            <right>439</right>
            <bottom>51</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <false /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>1</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Read IT</name>
        <script>All scripts in this object are Copyright 1993, Venanzio Jelenic,  all rights reserved.
-Universal  tool

on deletebutton
choose browse tool
end deletebutton


on mouseUp
global wordstosay
if wordstosay ≠ empty then
else
if the Selection ≠ empty then
put the selection into wordstosay
chunkit
end if
end if
put empty into wordstosay
flush
end mouseUp

on mousestilldown
global thefield, WORDSTOSAY,newlocof
if selection ≠ empty then
mouseup
exit to hypercard
end if
put loc of target into oldloc
dragon the target
put loc of target into newlocof
set loc of target to oldloc
getfieldname
if thefield ≠ empty then
select text of bg field thefield
put bg field thefield into wordstosay
chunkit
put empty into wordstosay
put empty into thefield
select empty
exit to hypercard
end if
flush
end mousestilldown

on helpinfo
hiliteme
ShowHelp (short name of me)
hiliteme
end helpinfo


on chunkit
global wordstosay
repeat with chosen = 1 to the number of lines in wordstosay
if the number of chars in line chosen of wordstosay >240 then
put number of words in line chosen of wordstosay into limitsay
put round(limitsay/15) into onebunch
repeat with z = 1 to onebunch
if the mouse is "down" then exit repeat
if z =1 then
say word z to 15 of line chosen of wordstosay
say word z+15 to 29 of line chosen of wordstosay
else
say word (z*15) to (z*15+14) of line chosen of wordstosay
end if
end repeat
else
if the mouse is "down" then exit repeat
say line chosen of wordstosay
end if
end repeat
end chunkit</script>
    </part>
    <part>
        <id>45</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>458</left>
            <top>19</top>
            <right>488</right>
            <bottom>50</bottom>
        </rect>
        <style>rectangle</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <false /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>1020</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Help</name>
        <script>All scripts in this object are Copyright 1993, Venanzio Jelenic,  all rights reserved.
All scripts in this object are © 1993, Venanzio Jelenic,  all rights reserved.
on deletebutton
choose browse tool
end deletebutton
on mouseup
disableKB
Xcursor
repeat until the mouseclick
hiliteme
end repeat
helpfieldinfo
flush
end mouseup


on helpfieldinfo
repeat with z =  the number of bg fields down to 1
if the clickloc is within the rect of bg field z ¬
and the visible of bg field z then
if the script of bg field z contains  "helpinfo" then
send helpinfo to bg field z
set the hilite of me to false
exit helpfieldinfo
exit repeat
end if
end if
end repeat
helpbuttoninfo
end helpfieldinfo

on helpbuttoninfo
repeat with z =  the number of bg buttons down to 1
if the clickloc is within the rect of bg button z and ¬
the visible of bg button z then
if the script of bg button z contains  "helpinfo" then
set the hilite of me to false
send helpinfo to bg button z
exit helpbuttoninfo
end if
end if
end repeat
end helpbuttoninfo

on helpinfo
end helpinfo



</script>
    </part>
    <part>
        <id>46</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>360</left>
            <top>24</top>
            <right>378</right>
            <bottom>47</bottom>
        </rect>
        <style>shadow</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <false /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>26262</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>XNotes</name>
        <script>All scripts in this object are Copyright 1993, Venanzio Jelenic,  all rights reserved.

on deletebutton
choose browse tool
end deletebutton

on mouseUp
DisableKB
Tempuser 5
togglemenu off
busy
lock screen
notepad "90,340"
Flush
end mouseUp





on helpinfo
hiliteme
ShowHelp (short name of me)
hiliteme
end helpinfo


</script>
    </part>
    <part>
        <id>48</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>15</left>
            <top>292</top>
            <right>48</right>
            <bottom>322</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>23078</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Displaying Messages</name>
        <script>All scripts in this object are Copyright 1993, Venanzio Jelenic,  all rights reserved.
on deletebutton
choose browse tool
end deletebutton

on mouseUp
disableKB
visual effect iris open fast
go card short name of me in stack "User Help"
end mouseUp


on helpinfo
fliphelp "click here for general messaging help"
end helpinfo</script>
    </part>
    <part>
        <id>54</id>
        <type>field</type>
        <visible> <false /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>0</left>
            <top>0</top>
            <right>12</right>
            <bottom>12</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Geneva</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <textHeight>16</textHeight>
        <name>ReadBy</name>
        <script>All scripts in this object are Copyright 1993, Venanzio Jelenic,  all rights reserved.
All scripts in this object are © 1993, Venanzio Jelenic,  all rights reserved.
on deletefield
choose browse tool
end deletefield
x
</script>
    </part>
    <part>
        <id>55</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>204</left>
            <top>2</top>
            <right>306</right>
            <bottom>49</bottom>
        </rect>
        <style>shadow</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <false /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>1009</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Who Has Read This</name>
        <script>All scripts in this object are © 1993, Venanzio Jelenic,  all rights reserved.
on deletebutton
choose browse tool
end deletebutton
on mouseup

busy
DisableKb
sort bg field "readby"
put "Read by:" into prompt
ShowDialog 7,5013,prompt,"","",bg field "readby",1,"one"
put the result into theresult
if line 1 of theresult is 2 then
else if line 1 of theresult is 1 then
put line (line 2 of theresult) of bg field "readby" into theuser
set lockmessages to true
push card
go stack "about me"
find whole theuser
if the result ≠ empty then
answer "This user may not be a user of the LINK2© network anymore"&¬
"  There is no About Me card for: " & theuser
else
set the textsize of bg field "notes" to 12
set scroll of bg field "notes" to 0
unlock screen with dissolve
wait until the mouseclick
end if
pop card
end if
end mouseup

on helpinfo
fliphelp"Click here to see who has read this message so far. "¬
&return & "If you choose a name to SEE then you may read that "¬
&"person's resumé card."
end helpinfo
</script>
    </part>
    <name>messages</name>
    <script>All scripts in this object are Copyright 1993, Venanzio Jelenic,  all rights reserved.

on arrowkey which
get scroll of bg field "message"
if which is "up" then subtract 12 from it
else if which is "down" then add 12 to it
set scroll of bg field "message" to it
end arrowkey

function dateToSecs d
convert d to secs
return d
end dateToSecs

on opencard
global tempusername,Useropt
put datetosecs (bg field "date") into bg field "date"
convert bg field "date" to long date
if checkuser(field "to") or checkuser (field "from") or useropt ¬
= "readany,killany" then
show bg button "kill"
else
hide bg button "kill"
end if
hide bg field "readby"
if DoReadBY() then put tempusername & return after bg field "readby"
CheckLastMsg
end opencard

</script>
</background>